home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / pgm_tool / nova_prg / srchnova.prg < prev   
Encoding:
Text File  |  1990-07-03  |  2.2 KB  |  116 lines
  1.  
  2. ****************************************************************************
  3. *
  4. * Search the NOVA database
  5. *
  6. * 7/4/90 - Michael McGhee, 76424,3407
  7. *
  8. ****************************************************************************
  9.  
  10. SET ESCAPE OFF
  11. SET TALK OFF
  12. SET DOHISTORY OFF
  13.  
  14. SELE 1
  15. USE NOVA
  16.  
  17. DEFINE WINDOW NOVHEADER FROM 1,1 TO 10,78 ;
  18.                              SHADOW ;
  19.                              TITLE 'Netwire' ;
  20.                              COLOR SCHEME 10
  21.                           
  22. DEFINE WINDOW NOVDESCRIPT FROM 13,1 TO 22,78 ;
  23.                                SHADOW ;
  24.                                TITLE "Description";
  25.                                COLOR SCHEME 5
  26.  
  27. DEFINE WINDOW PLEASEWAIT FROM 10,32 TO 14,46 ;
  28.                               COLOR SCHEME 12
  29.  
  30. ON KEY LABEL F10 DO EXITNOVA
  31. ON KEY LABEL F9 DO EXITSRCH
  32.  
  33. DONE=.F.
  34.  
  35. DO WHILE .NOT. DONE
  36.  
  37. TOSEARCH=SPACE(30)
  38. SET COLOR TO W/N
  39. CLEAR
  40.  
  41. @ 1,1 SAY 'SEARCH : ' GET TOSEARCH
  42. READ
  43.  
  44. IF READKEY()=12 .OR. EMPTY(TOSEARCH)
  45.   DONE=.T.
  46.   LOOP
  47. ENDIF
  48.  
  49. TOSEARCH=TRIM(TOSEARCH)
  50.  
  51. CLEAR
  52. SET COLOR TO W/B
  53. @ 24,1 SAY ' ESC - Continue  F9 - New Search   F10 - Exit Program'
  54. SET COLOR TO W/N
  55. GO TOP
  56. SDONE=.F.
  57. DO PLWAIT
  58. DO WHILE .NOT. EOF() .AND. .NOT. SDONE
  59.   KEYFOUND=AT(UPPER(TOSEARCH),KEYWORDS)>0
  60.  
  61.   IF .NOT. KEYFOUND
  62.      KEYFOUND=.NOT. EMPTY(MLINE(DESCRIPT,ATLINE(TOSEARCH,DESCRIPT)))
  63.   ENDIF
  64.  
  65.   IF KEYFOUND
  66.     DEACTIVATE WINDOW PLEASEWAIT
  67.     ACTIVATE WINDOW NOVHEADER
  68.     @ 1,1  SAY FNAME
  69.     @ 1,30 SAY DTOC(DATE)
  70.     @ 1,40 SAY SIZE
  71.     @ 1,60 SAY LIB
  72.     @ 2,1  SAY PPN
  73.     @ 4,1  SAY KEYWORDS
  74.     @ 6,1  SAY TITLE
  75.     MODIFY MEMO DESCRIPT NOEDIT WINDOW NOVDESCRIPT
  76.     DO PLWAIT
  77.   ENDIF
  78.  
  79.   SKIP
  80.  
  81. ENDDO
  82.  
  83. DEACTIVATE WINDOW PLEASEWAIT
  84.  
  85. IF EOF()
  86.    WAIT "End of file ... " WINDOW TIMEOUT 2
  87. ENDIF
  88. DEACTIVATE WINDOW NOVHEADER
  89.  
  90. ENDDO
  91.  
  92. CLOSE DATA
  93. CLEAR
  94. RETURN
  95.  
  96.  
  97. PROCEDURE EXITSRCH
  98.   SDONE=.T.
  99.   DEACTIVATE WINDOW NOVHEADER
  100.   KEYBOARD CHR(23)
  101. RETURN
  102.  
  103. PROCEDURE EXITNOVA
  104.   DONE=.T.
  105.   SDONE=.T.
  106.   DEACTIVATE WINDOW NOVHEADER
  107.   RELEASE ALL
  108.   KEYBOARD CHR(27)
  109. RETURN 
  110.  
  111. PROCEDURE PLWAIT
  112. ACTIVATE WINDOW PLEASEWAIT
  113. SET COLOR TO GR+*/B
  114. @ 1,1 SAY 'Please Wait'
  115. RETURN
  116.